      *     < COPY MEMBER C108WDTE - WORKING STORAGE ELEMENTS FOR
      *                 DB2 DATE FORMAT CHECKING.
      *       TO INCLUDE THE CODE, YOU NEED TO COPY COPY-MEMBER
      *             C108CDTE >

            05  W0002-DB2-DATE.
                10  W0002-DB2-MM     PIC  X(02).
                10  W0002-DB2-DASH1  PIC  X(01).
                10  W0002-DB2-DD     PIC  X(02).
                10  W0002-DB2-DASH2  PIC  X(01).
                10  W0002-DB2-CC     PIC  X(02).
                10  W0002-DB2-YY     PIC  X(02).
            05  W0002-DB2-DATE-NUM.
                10  W0002-DB2-MM-DSP PIC  9(02) DISPLAY.
                10  W0002-DB2-MM-NUM PIC  9(02).
                10  W0002-DB2-DD-DSP PIC  9(02) DISPLAY.
                10  W0002-DB2-DD-NUM PIC  9(02).
                10  W0002-DB2-YY-DSP PIC  9(02) DISPLAY.
                10  W0002-DB2-YY-NUM PIC  9(02).
                10  W0002-DB2-YY-RLT PIC  9(02).
                10  W0002-DB2-YY-RMD PIC  9(02).
                10  W0002-DB2-CC-DSP PIC  9(02) DISPLAY.
                10  W0002-DB2-CC-NUM PIC  9(02).
